Cream of the Crop 25/Cream of the Crop 25.iso/educate/perlb161.zip/PERLIB32.EXE/0/RCDATA/TFRMSETTEMPERATURE/TFRMSETTEMPERATURE.txt

Text File | 1997-04-27 | 4KB | 165 lines

object frmSetTemperature: TfrmSetTemperature
  Left = 270
  Top = 317
  HelpContext = 5
  HorzScrollBar.Visible = False
  VertScrollBar.Visible = False
  BorderIcons = [biSystemMenu]
  BorderStyle = bsDialog
  Caption = 'Set Temperature'
  ClientHeight = 227
  ClientWidth = 425
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsStayOnTop
  KeyPreview = True
  Position = poDefaultPosOnly
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 120
  TextHeight = 16
  object butOK: TButton
    Left = 324
    Top = 192
    Width = 93
    Height = 29
    Caption = '&OK'
    Default = True
    TabOrder = 2
    OnClick = butClick
  end
  object butCancel: TButton
    Left = 224
    Top = 192
    Width = 93
    Height = 29
    Cancel = True
    Caption = 'C&ancel'
    TabOrder = 1
    OnClick = butClick
  end
  object butHelp: TButton
    Left = 124
    Top = 192
    Width = 93
    Height = 29
    Caption = '&Help'
    TabOrder = 0
    OnClick = butClick
  end
  object pageTemp: TPageControl
    Left = 4
    Top = 4
    Width = 417
    Height = 181
    ActivePage = tabKelvin
    TabOrder = 3
    TabStop = False
    OnChanging = pageTempChanging
    object tabKelvin: TTabSheet
      Caption = '&Kelvin'
      object Label1: TLabel
        Left = 16
        Top = 100
        Width = 377
        Height = 37
        AutoSize = False
        Caption =
          'In order to input temperature in a different unit, click on the ' +
          'desired tab above.'
        Transparent = True
      end
      object Label2: TLabel
        Left = 16
        Top = 8
        Width = 377
        Height = 53
        AutoSize = False
        Caption =
          'Please type the desired temperature in Kelvin from the range of ' +
          '0.00 to 6000.00. A maximum of 2 decimal places will be preserved' +
          ':'
        Transparent = True
      end
      object txtKelvin: TEdit
        Left = 40
        Top = 64
        Width = 133
        Height = 24
        AutoSize = False
        TabOrder = 0
      end
    end
    object tabCelsius: TTabSheet
      Caption = '&Celsius'
      object Label3: TLabel
        Left = 16
        Top = 8
        Width = 377
        Height = 53
        AutoSize = False
        Caption =
          'Please type the desired temperature in Celsius from the range of' +
          ' -273.15 to 5726.85. A maximum of 2 decimal places will be prese' +
          'rved:'
        Transparent = True
      end
      object Label4: TLabel
        Left = 16
        Top = 100
        Width = 377
        Height = 37
        AutoSize = False
        Caption =
          'In order to input temperature in a different unit, click on the ' +
          'desired tab above.'
        Transparent = True
      end
      object txtCelsius: TEdit
        Left = 40
        Top = 64
        Width = 133
        Height = 24
        AutoSize = False
        TabOrder = 0
      end
    end
    object tabFarenheit: TTabSheet
      Caption = '&Farenheit'
      object Label5: TLabel
        Left = 16
        Top = 8
        Width = 377
        Height = 53
        AutoSize = False
        Caption =
          'Please type the desired temperature in Fahrenheit from the range' +
          ' of -459.67 to 10340.33. A maximum of 2 decimal places will be p' +
          'reserved:'
        Transparent = True
      end
      object Label6: TLabel
        Left = 16
        Top = 100
        Width = 377
        Height = 37
        AutoSize = False
        Caption =
          'In order to input temperature in a different unit, click on the ' +
          'desired tab above.'
        Transparent = True
      end
      object txtFarenheit: TEdit
        Left = 40
        Top = 64
        Width = 133
        Height = 24
        AutoSize = False
        TabOrder = 0
      end
    end
  end
end